3D GFX/3D GFX.iso/pcutils/dos/vector/bird.vec

Text File | 1995-12-30 | 1KB | 119 lines

PLAY("reset.vec")
font("euro.chr")
ZOOM(0.1, 0.05)
SETLINE(1)
COLOR(1)
STYLE(1, 14)
FILL(1)
SCROLL(0, 0)
dy = 30
FOR i = 1 TO 12
    ELLIPSE(1600,800+2*dy*i,0,360,dy*(i), dy*(i))
    ELLIPSE(1600,2300-2*dy*i,0,360,dy*(i),dy*(i))
NEXT


@DN(1800, 1800)
@Wing(1900, 1400)
MIRROR(1600)
@DN(1800, 1800)
@Wing(1900, 1400)

MIRROR(0)
ROTATE(0,0,0)
ELLIPSE(1600,700,0,360,360, 360)
FOR i = 0 to 60
    @PERO(1800, 700, 1)
    ROTATE(6 * i, 1600, 700)
NEXT
ROTATE(-90, 1600, 2000)
@PERO(1600, 2000, 7)
ROTATE(-100, 1600, 2000)
@PERO(1600, 2000, 5)
ROTATE(-80, 1600, 2000)
@PERO(1600, 2000, 5)

ROTATE(0, 0, 0)
ELLIPSE(1700,600,0,360,60, 130)
ELLIPSE(1500,600,0,360,60, 130)
ELLIPSE(1700,600,0,360,60, 60)
ELLIPSE(1500,600,0,360,60, 60)
ELLIPSE(1600,800,0,360,20,90)

END

@WING(xwin, ywin)
    FOR i = 0 TO 10
ROTATE(20*i-120,xwin,ywin)
@PERO(xwin,ywin, i/2)
    NEXT
ZOOM(0.1, 0.05)
RETURN

@DN(xdn, ydn)
ROTATE(-180, xdn+40, ydn+40)
FOR i = 0 TO 19
    ROTATE(20*i, xdn+40, ydn+40)
    @PERO(xdn, ydn,1)

NEXT
RETURN

@PERO(x, y,sz)
    x1=x+40*sz
    x2=x+100*sz
    x3=x+230*sz
    x4=x+300*sz
    y1=y-20*sz: y2=y-30*sz: y3=y+20*sz
    y4=y+30*sz
    POLY(7,x1,y,x2,y1,x3,y2,x4,y,x3,y4, x2,y3,x1,y)
    LINE(x, y, x + 300, y)
RETURN